home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / engine.arc / ENGINE SIMULATOR (.txt) next >
Encoding:
Commodore BASIC  |  1993-04-03  |  2.1 KB  |  80 lines
  1. 1 REM ****** 'ENGINESIMULATOR' *******
  2. 2 REM * AUTHOR = 'SIMON99' ON Q-LINK *
  3. 9 :
  4. 10 IFQQ=0THENQQ=1:LOAD"ENGINEDATA",8,1
  5. 20 POKE55,0:POKE56,128:CLR
  6. 99 :
  7. 100 POKE808,234
  8. 101 POKE56576,(PEEK(56576)AND252)OR1
  9. 102 POKE53272,52:POKE648,140
  10. 104 V=53248:BS=32768:BP=36856
  11. 108 POKEV+32,12:POKEV+33,11:GOTO800
  12. 199 :
  13. 200 PRINT"[147]":POKEV+23,254:POKEV+29,254:POKEV+16,0
  14. 204 POKEV,0:POKEV+1,0:POKEV+2,65:POKEV+3,177:POKEV+4,65:POKEV+5,135
  15. 206 POKEV+6,65:POKEV+7,93:POKEV+8,17:POKEV+9,93:POKEV+10,77:POKEV+11,117
  16. 207 POKEV+12,77:POKEV+13,117:POKEV+14,53:POKEV+15,117
  17. 208 POKEV+40,0:POKEV+41,0:POKEV+42,0:POKEV+43,0:POKEV+44,10
  18. 209 POKEV+45,10:POKEV+46,14:POKEV+47,14
  19. 252 POKEBP,0:POKEBP+1,1:POKEBP+2,9:POKEBP+3,17
  20. 254 POKEBP+4,24:POKEBP+5,25:POKEBP+6,25:POKEBP+7,20:POKEV+21,31
  21. 256 :
  22. 258 PRINT"[147][144] HIT ANY KEY TO START ENGINE":POKE198,0
  23. 259 GETK$:IFK$=""THEN259
  24. 260 :
  25. 261 PRINT"[147]"TAB(20)"+ = FASTER"
  26. 262 PRINTTAB(20)"- = SLOWER"
  27. 263 PRINTTAB(20)"X = STOP"
  28. 268 PRINT"     STROKE":PRINT"[145][145]"
  29. 270 POKEV+21,255:POKEV+1,114:T=TI:W=80
  30. 500 :
  31. 510 FORI=0TO1:FORJ=0TO7:K=I*8+J:T=T+W
  32. 522 IFT>TITHEN522
  33. 530 POKEBP+1,1+J:POKEBP+2,9+J
  34. 532 IFK=0THENPOKEBP+3,17
  35. 534 IFK=1THENPOKEV,0
  36. 536 IFK=1THENPOKEBP+3,19
  37. 538 IFK=1THENPOKEV,39:POKEV+39,14
  38. 540 IFK=1THENPOKEBP+6,25
  39. 541 IFK=1THENPRINT"[145]     INTAKE   "
  40. 542 IFK=2THENPOKEBP+5,25
  41. 544 IFK=5THENPOKEBP+3,17
  42. 546 IFK=5THENPOKEV,0
  43. 547 IFK=5THENPRINT"[145]   COMPRESSION"
  44. 548 IFK=8THENPOKEBP+6,22
  45. 550 IFK=9THENPOKEBP+6,23
  46. 551 IFK=9THENPRINT"[145][150]     POWER    [144]"
  47. 552 IFK=13THENPOKEBP+3,18
  48. 554 IFK=13THENPOKEV,117:POKEV+39,10
  49. 556 IFK=13THENPOKEBP+5,21
  50. 557 IFK=13THENPRINT"[145]     EXHAUST  "
  51. 580 GETQ$:IFQ$=""THEN590
  52. 582 IFQ$="+"ANDW>7THENW=W*4/5
  53. 584 IFQ$="-"ANDW<80THENW=W*5/4
  54. 586 IFQ$="X"THEN800
  55. 590 NEXT:NEXT:GOTO510
  56. 750 :
  57. 752 POKE56576,(PEEK(56576)AND252)OR3
  58. 754 POKE53272,20:POKE648,4
  59. 756 POKE808,237:PRINT"[147]"
  60. 758 POKE55,0:POKE56,160:CLR:END
  61. 800 :
  62. 802 POKEV+21,0:PRINT"[147][158]           'ENGINESIMULATOR' [146]":PRINT
  63. 804 PRINT"      AUTHOR = 'SIMON99' ON Q-LINK":PRINT
  64. 805 PRINT" THIS PROGRAM MAY BE FREELY DISTRIBUTED":PRINT
  65. 810 PRINT"           A SIMULATION OF A"
  66. 812 PRINT"            SINGLE-CYLINDER"
  67. 813 PRINT"              FOUR-STROKE"
  68. 814 PRINT"       INTERNAL COMBUSTION ENGINE":PRINT
  69. 816 PRINT" --------------FEATURING---------------":PRINT
  70. 820 PRINT"    CRANKSHAFT          PISTON ROD":PRINT
  71. 822 PRINT"     PISTON              CYLINDER":PRINT
  72. 824 PRINT"   INTAKE VALVE        EXHAUST VALVE":PRINT
  73. 826 PRINT" CARBURETOR          SPARK PLUG"
  74. 830 PRINT" --------------------------------------":PRINT
  75. 846 PRINT"  SPACE[146] = CONTINUE         X[146] = END"
  76. 850 POKE198,0
  77. 851 GETK$:IFK$="X"THEN750
  78. 852 IFK$<>" "THEN851
  79. 853 GOTO200
  80.